The Netter Presenter: Ur…ion in Overactive Bladder/The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso/mac/UrinarySystem.app/Contents/Main.dxr/Internal_148_Button Toggle.ls

Text File | 2005-01-18 | 1.4 KB | 58 lines

property OFFstate, ONstate, NormalState, outcurs, incurs, incursSet, customImage, useCustom, customMask, oldcursor
global gTheONstate

on translate_cursor me, Setting, image, mask, Custom
  val = [member(image), member(mask)]
  return val
  return Setting
end

on beginSprite me
  oldcursor = member("point")
  val = translate_cursor(me, me.incursSet, "point", "point mask", 1)
  set the cursor of sprite the spriteNum of me to val
  memref = the member of sprite the currentSpriteNum
  castLibNum = memref.castLibNum
  NormalState = member(member(memref).memberNum, castLibNum)
  DownState = member(member(memref).memberNum + 1, castLibNum)
  OFFstate = member(member(memref).memberNum, castLibNum)
  ONstate = member(member(memref).memberNum + 1, castLibNum)
  gTheONstate = 0
end

on endSprite me
  oldcursor = member("point")
end

on SetOFFstate me
  set the member of sprite the spriteNum of me to me.OFFstate
  gTheONstate = 0
end

on SetONstate me
  set the member of sprite the spriteNum of me to me.ONstate
  gTheONstate = 1
end

on mouseUp me
  if the member of sprite me.spriteNum = me.ONstate then
    set the member of sprite the spriteNum of me to me.OFFstate
    gTheONstate = 0
  else
    set the member of sprite the spriteNum of me to me.ONstate
    gTheONstate = 1
  end if
end

on mouseEnter me
end

on mouseLeave me
end

on mouseDown me
end

on mouseUpOutSide me
end